From 0e2f4e59a54366563ae8a6824d0447297f0dcf7b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 24 May 1993 21:19:42 +0000 Subject: [PATCH] (x-select-text): New arg PUSH. --- lisp/term/x-win.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 674097fd057..6d534cbb790 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -469,8 +469,8 @@ This returns ARGS with the arguments that have been processed removed." ;;; have a window on a copy of the kill-ring. ;;; Also, set the value of X cut buffer 0, for backward compatibility ;;; with older X applications. -(defun x-select-text (text) - (x-set-cut-buffer text) +(defun x-select-text (text &optional push) + (x-set-cut-buffer text push) (x-set-selection 'CLIPBOARD text) (x-set-selection 'PRIMARY text) (setq x-last-selected-text text)) -- 2.30.2